home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / GoldED / Add-Ons / envWWW27 / Install < prev    next >
Text File  |  1999-07-06  |  7KB  |  313 lines
  1. ; $VER: 1.0 All rights reserved.
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 47)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED 4.7.2 or better required")
  20.  
  21.                 (exit (quiet))
  22.             )
  23.         )
  24.  
  25.         (message (cat "\n"
  26.  
  27.             "                                            \n"
  28.             "WWW Publishing Extensions                   \n"
  29.             "                                            \n"
  30.             "©1997 Dietmar Eilert                        \n"
  31.             "      All Rights Reserved.                  \n"
  32.             "                                            \n"
  33.             "      E-Mail: dietmar@tomate.tng.oche.de    \n"
  34.             "                                            \n"
  35.             "GoldED Release 4.7.2+ required.             \n"
  36.         ))
  37.  
  38.         (if (not (exists "golded:api"))
  39.  
  40.             (makedir "golded:api")
  41.         )
  42.  
  43.         (if (not (exists "golded:syntax"))
  44.  
  45.             (makedir "golded:syntax")
  46.         )
  47.  
  48.         (copylib
  49.  
  50.             (prompt "Install syntax parser ?")
  51.             (source "syntax/warpHTML.parser")
  52.             (dest   "golded:syntax")
  53.             (confirm)
  54.             (help @copylib-help)
  55.         )
  56.  
  57.         ; install API clients
  58.  
  59.         (copylib
  60.  
  61.             (prompt "Install API client 'gifinfo.api' ?")
  62.             (source "api/gifinfo.api")
  63.             (dest   "golded:api")
  64.             (confirm)
  65.             (help @copylib-help)
  66.         )
  67.  
  68.         (copylib
  69.  
  70.             (prompt "Install API client 'ISO8859.api' ?")
  71.             (source "api/ISO8859.api")
  72.             (dest   "golded:api")
  73.             (confirm)
  74.             (help @copylib-help)
  75.         )
  76.  
  77.         (copylib
  78.  
  79.             (prompt "Install API client 'w3color.api' ?")
  80.             (source "api/w3color.api")
  81.             (dest   "golded:api")
  82.             (confirm)
  83.             (help @copylib-help)
  84.         )
  85.  
  86.         ; install registry editor (if not yet installed)
  87.  
  88.         (if (not (exists "golded:tools"))
  89.  
  90.             (makedir "golded:tools")
  91.         )
  92.  
  93.         (if (not (exists "golded:tools/regedit"))
  94.  
  95.             (makedir "golded:tools/regedit")
  96.         )
  97.  
  98.         (copylib
  99.  
  100.             (prompt "Install registry editor ?")
  101.             (source "bin/regedit" )
  102.             (dest   "golded:tools/regedit")
  103.             (confirm)
  104.             (help @copylib-help)
  105.         )
  106.  
  107.         ; install basic files
  108.  
  109.         (if (not (exists "golded:tools/www"))
  110.  
  111.             (makedir "golded:tools/www")
  112.         )
  113.  
  114.         (copyfiles
  115.  
  116.             (source "www")
  117.             (dest   "golded:tools/www")
  118.             (all)
  119.         )
  120.  
  121.         (if (= @language "deutsch")
  122.  
  123.             (set menu 1)
  124.             (set menu 0)
  125.         )
  126.  
  127.         (set menu (askchoice
  128.  
  129.             (prompt "\nHTML menu\n")
  130.  
  131.             (choices
  132.  
  133.                 "English"
  134.                 "Deutsch"
  135.             )
  136.  
  137.             (default menu)
  138.  
  139.             (help @askchoice-help)
  140.         ))
  141.  
  142.         (set browser (askchoice
  143.  
  144.             (prompt "\nWhat browser do you use ?\n")
  145.  
  146.             (choices
  147.  
  148.                 "None"
  149.                 "AWeb 1.2 demo     (or 100% compatible)"
  150.                 "IBrowse 1.02 demo (or 100% compatible)"
  151.                 "Voyager 1.0 demo  (or 100% compatible)"
  152.                 "Voyager-NG        (or 100% compatible)"
  153.                 "Other"
  154.             )
  155.  
  156.             (help (cat "\n"
  157.  
  158.                 " The browser preview function of this software   \n"
  159.                 " may not work with all browsers. It requires     \n"
  160.                 " that your browser supports a 'reload page'      \n"
  161.                 " ARexx command. List of compatible browsers:     \n"
  162.                 "                                                 \n"
  163.                 " IBrowse 1.02 demo  Supported                    \n"
  164.                 " AWeb 1.2b demo     Supported                    \n"
  165.                 " AWeb-II 2.1 demo   Not supported (no ARexx port)\n"
  166.                 " Voyager 1.0        Some support  (no reload cmd)\n"
  167.                 " Voyager-NG         Some support  (no reload cmd)\n"
  168.             ))
  169.         ))
  170.  
  171.         (if (= browser 0)
  172.  
  173.             (copyfiles
  174.  
  175.                 (source  "support/preview_none.ged")
  176.                 (dest    "golded:tools/www/arexx")
  177.                 (newname "preview.ged")
  178.             )
  179.         )
  180.  
  181.         (if (= browser 1)
  182.  
  183.             (copyfiles
  184.  
  185.                 (source  "support/preview_aweb.ged")
  186.                 (dest    "golded:tools/www/arexx")
  187.                 (newname "preview.ged")
  188.             )
  189.         )
  190.  
  191.         (if (= browser 2)
  192.  
  193.             (copyfiles
  194.  
  195.                 (source  "support/preview_ibrowse.ged")
  196.                 (dest    "golded:tools/www/arexx")
  197.                 (newname "preview.ged")
  198.             )
  199.         )
  200.  
  201.         (if (= browser 3)
  202.  
  203.             (copyfiles
  204.  
  205.                 (source  "support/preview_mindwalker.ged")
  206.                 (dest    "golded:tools/www/arexx")
  207.                 (newname "preview.ged")
  208.             )
  209.         )
  210.  
  211.         (if (= browser 4)
  212.  
  213.             (copyfiles
  214.  
  215.                 (source  "support/preview_voyager.ged")
  216.                 (dest    "golded:tools/www/arexx")
  217.                 (newname "preview.ged")
  218.             )
  219.         )
  220.  
  221.         (if (> browser 4)
  222.  
  223.             (copyfiles
  224.  
  225.                 (source  "support/preview_other.ged")
  226.                 (dest    "golded:tools/www/arexx")
  227.                 (newname "preview.ged")
  228.             )
  229.         )
  230.  
  231.         ; install toolbar images
  232.  
  233.         (if (exists "toolbar") (
  234.  
  235.             (set hicolor
  236.  
  237.                 (askchoice
  238.  
  239.                     (prompt "\nSelect toolbar style:\n")
  240.  
  241.                     (choices
  242.  
  243.                         "4  colors"
  244.                         "8+ colors"
  245.                     )
  246.  
  247.                     (default 1)
  248.  
  249.                     (help (cat "\n"
  250.  
  251.                         " You can use both styles on all screens. The 4\n"
  252.                         " color style has been optimized for 4-color   \n"
  253.                         " screens. The 8+ style has been optimized for \n"
  254.                         " screens with eight or more colors.           \n"
  255.                     ))
  256.                 )
  257.             )
  258.  
  259.             (if (not (exists "golded:toolbar"))
  260.  
  261.                 (makedir "golded:toolbar")
  262.             )
  263.  
  264.             (if (not (exists "golded:toolbar/words"))
  265.  
  266.                 (makedir "golded:toolbar/words")
  267.             )
  268.  
  269.             (copyfiles
  270.  
  271.                 (source "toolbar")
  272.                 (dest   "golded:toolbar")
  273.                 (all)
  274.             )
  275.  
  276.             (if (= hicolor 1)
  277.  
  278.                 (copyfiles
  279.  
  280.                     (source "toolbar16")
  281.                     (dest   "golded:toolbar")
  282.                     (nogauge)
  283.                     (all)
  284.                 )
  285.             )
  286.         ))
  287.  
  288.         ; update registry
  289.  
  290.         (working "Updating registry...")
  291.  
  292.         (if (= menu 0)
  293.  
  294.             (run "golded:tools/regedit/regedit script=install_e.bat")
  295.         )
  296.  
  297.         (if (= menu 1)
  298.  
  299.             (run "golded:tools/regedit/regedit script=install_d.bat")
  300.         )
  301.     )
  302.  
  303.     (message (cat "\n"
  304.  
  305.         "Please install GoldED before attempting to\n"
  306.         "install this client.                      \n"
  307.     ))
  308. )
  309.  
  310. (exit (quiet))
  311.  
  312. (welcome)
  313.